寻VB高手解决"424要求对象"

是绘图代码
如下
Private Sub Form_Load()
Form1.Caption = "绘制图形"
Command1.Caption = "直线"
Command2.Caption = "圆"
Command3.Caption = "正弦曲线"
Command4.Caption = "余弦曲线"
Command5.Caption = "清除"
Command6.Caption = "退出"
Me.Show
Me.AutoRedraw = True
Call xy
End Sub
Public Sub xy()
p1.Cls
p1.Scale (-10, 10)-(10, -10)
p1.Line (-10, 0)-(10, 0), 15
p1.Line -(9.5, 0.5), 15
p1.Line (10, 0)-(9.5, -0.5), 15
p1.Print "x"
p1.Line (0, 10)-(0, 10), 15
p1.Line -(-0.5, 9.5), 15
p1.Line (0, 10)-(0.5, 9.5), 15
p1.Print "Y"
End Sub
Private Sub Command1_Click()
Call xy
X1 = InputBox("请输入起点x坐标,-10～10")
Y1 = InputBox("请输入起点y坐标,-10～10")
X2 = InputBox("请输入终点x坐标,-10～10")
Y2 = InputBox("请输入终点y坐标,-10～10")
p1.Line (xi, yi)-(X2, Y2), 15
End

添加一个图片框控件picture,并将名称属性改为P1,调整到合适的大小

'Option Explicit '最好加上这句,容易调试变量输入错误
Private Sub Command3_Click()
Dim i As Single
Call xy
For i = -10 To 10 Step 0.01
P1.PSet (i, Sin(i) * 5), Me.ForeColor
Next
End Sub

Private Sub Command4_Click()
Dim i As Single
Call xy
For i = -10 To 10 Step 0.01
P1.PSet (i, Cos(i) * 5), Me.ForeColor
Next
End Sub

Private Sub Command5_Click()
Call xy
End Sub

Private Sub Command6_Click()
Set Form1 = Nothing
Unload Me
End
End Sub

Private Sub Form_Load()
Form1.Caption = "绘制图形"
Command1.Caption = "直线"
Command2.Caption = "圆"
Command3.Caption = "正弦曲线"
Command4.Caption = "余弦曲线"
Command5.Caption = "清除"
Command6.Caption = "退出"
Me.Show
Me.AutoRedraw = True